% V20210224 - 9.21 GW_ADD_SLIDER

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

% Prepare title bar string.
title$ = GW_ADD_BAR_TITLE$("Slider Example")

% Add title to page.
GW_ADD_TITLEBAR(p, title$)

% Add descriptive text.
GW_ADD_TEXT(p, "This is an example of the SLIDER control:")

% Add first slider.
slide1 = GW_ADD_SLIDER(p, "First Slider", 5, 26, 1, 13)

% Add a button to get slider value.
GW_ADD_BUTTON(p, "Get first slider value","get")

% Add text for first slider value.
text1 = GW_ADD_TEXT(p, "  ")

% Add second slider.
slide2 = GW_ADD_SLIDER(p, "Second Slider", 1, 10, 1, 1)

% Add text for second slider value.
text2 = GW_ADD_TEXT(p, "  ")

% Listen for first slider action.
GW_ADD_LISTENER(p, slide1, "change", "slide1")

% Listen for second slider action.
GW_ADD_LISTENER(p, slide2, "change", "slide2")

GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process
 % user actions.

 % Example feedback.
 POPUP r$

 SW.BEGIN r$

 % Button was pressed.
 SW.CASE "get"
  s$ = GW_GET_VALUE$(slide)
  GW_MODIFY(text1, "text", s$)
  SW.BREAK

 % First slider changed.
 SW.CASE "slide1"
  GW_MODIFY(text1, "text", r$)
  SW.BREAK

 % Second slider changed.
 SW.CASE "slide2"
  s$ = GW_GET_VALUE$(slide2)
  GW_MODIFY(text2, "text", s$)
  SW.BREAK

 SW.END

% End when BACK key is pressed.
UNTIL r$="BACK"

END "End of Slider example."